home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch14 / RefGrid.cls < prev    next >
Text File  |  1999-06-21  |  1KB  |  51 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "RefinedGrid3d"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. ' The collection of Polyline3d objects.
  17. Public Polylines As Collection
  18. ' Apply a transformation matrix which may not
  19. ' contain 0, 0, 0, 1 in the last column to the
  20. ' object.
  21. Public Sub ApplyFull(M() As Single)
  22. Dim pline As Polyline3d
  23.  
  24.     For Each pline In Polylines
  25.         pline.ApplyFull M
  26.     Next pline
  27. End Sub
  28.  
  29. ' Apply a transformation matrix to the object.
  30. Public Sub Apply(M() As Single)
  31. Dim pline As Polyline3d
  32.  
  33.     For Each pline In Polylines
  34.         pline.Apply M
  35.     Next pline
  36. End Sub
  37. ' Draw the transformed points on a PictureBox.
  38. Public Sub Draw(ByVal pic As Object)
  39. Dim pline As Polyline3d
  40.  
  41.     For Each pline In Polylines
  42.         pline.Draw pic
  43.     Next pline
  44. End Sub
  45.  
  46. ' Create the empty Polylines collection.
  47. Private Sub Class_Initialize()
  48.     Set Polylines = New Collection
  49. End Sub
  50.  
  51.